Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 709,461.2 2,126.38 278,925.2 1,418,922 4,264.23 684,462.7 709,461.25 100
lp://DOT/LCDOT 4,484,198.0 57,008.87 1,776,689.5 4,476,437 56,859.60 1,810,989.0 7,761.05 1.1
lp://AUSD/LCDOT 2,348,739.0 57,173.10 1,428,530.3 2,341,795 57,816.37 1,471,832.0 6,944.41 1
lp://ACA/AUSD 2,846,584.9 51,659.85 1,776,666.3 2,847,253 51,658.13 1,839,761.9 668.41 0.1

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/AUSD -1,104,414.76 -60.61 -4,212.20 NA NA NA NA NA
lp://KINT/AUSD -1,179,803.52 -226.18 -12,528.82 NA NA NA NA NA
lp://PHA/AUSD -944,278.33 -195.49 -4,086.77 NA NA NA NA NA
lp://AUSD/KINT 1,163,658.39 -133.21 -14,073.95 25,750.62 567.75 28,472.77 1,137,907.77 NA
lp://AUSD/PHA 932,221.85 -46.15 -4,227.98 28,884.86 617.16 56,248.33 903,336.99 NA
lp://AUSD/KBTC 1,036,423.30 -196.09 -4,452.42 551,993.90 6,302.52 182,167.63 484,429.41 NA
lp://TAI/taiKSM 0.00 0.00 0.00 11,500.79 204.32 1,003.09 11,500.79 NA
lp://KAR/AUSD 484,096.15 910.76 202,399.47 481,838.78 905.13 274,355.59 2,257.37 NA
lp://AUSD/LKSM 539,412.39 253.04 182,397.46 537,408.32 250.98 208,422.38 2,004.07 NA
lp://KAR/KSM 1,059,949.76 960.37 339,034.68 1,058,277.31 956.06 341,413.99 1,672.45 NA
lp://KSM/LKSM 179,588.91 182.57 68,873.82 177,938.58 180.90 69,256.81 1,650.33 NA
lp://AUSD/KSM 644,009.64 7,828.62 637,974.56 642,994.66 7,828.62 640,547.06 1,014.97 NA
lp://AUSD/BNC 73,641.34 3,144.70 56,005.55 74,199.13 5,392.14 63,167.05 557.79 NA
lp://KAR/LKSM 740,004.31 5,328.12 152,792.43 740,450.78 5,319.99 171,010.90 446.47 NA
lp://AUSD/QTZ 28,556.71 40.63 6,041.72 28,743.23 40.78 13,294.12 186.51 NA
lp://KSM/ARIS 153.35 142.05 1,227.32 306.70 1,575.89 5,101.17 153.35 NA
lp://KAR/QTZ 21,842.00 40.75 4,408.04 21,950.36 40.95 7,324.83 108.36 NA
lp://AUSD/RMRK 12,648.97 29.88 10,490.94 12,714.75 29.91 32,874.65 65.78 NA
lp://KSM/RMRK 54,127.06 30.21 50,759.57 54,148.53 30.22 52,100.01 21.47 NA
lp://AUSD/CSM 32,765.12 674.67 46,069.21 32,749.38 1,223.94 135,848.20 15.73 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```